home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 65 / 065.d81 / chief boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  86 lines
  1. 5 poke53281,.:poke53280,12:printchr$(147)chr$(14)chr$(8)
  2. 8 gosub61000
  3. 10 poke214,9:print:printtab(9)"[159][195][200][201][197][198] [212][207][205][193][200][193][215][203]'[211][160][199][193][205][197][211]"
  4. 11 printtab(6)"[154][193]dventure on the [207]regon [212]rail"
  5. 12 sa=14336:hi=int(sa/256):lo=sa-hi*256
  6. 13 sys57812"chief font",8,0
  7. 14 poke780,0:poke781,lo:poke782,hi:sys65493:poke53272,31
  8. 15 poke147,0:sys57812"chant arabe",8,1:sys62631
  9. 20 print"          [201]nstructions [y/n]"
  10. 21 getk$:ifk$=""then21
  11. 22 ifk$="y"thengosub5000:print"[147]":gosub61000
  12. 30 poke214,13:print:print"[150]           [204]oading [208]rogram..."
  13. 31 goto60000
  14. 5000 gosub9000
  15. 5005 print"[159]    [215]hile making your way across the
  16. 5010 [153]" high plains in the early 1800's, your
  17. 5015 print" wagon train has been captured by [195]hief
  18. 5020 [153]" (NULL)omahawk and his braves.  atns (NULL)agon-
  19. 5025 print" master, it is up to you to secure the
  20. 5030 [153]" release of your fellow travelers.
  21. 5035 print"    [198]ortunately, the [195]hief places a
  22. 5040 [153]" greater importance on intelligence
  23. 5045 print" than on brawn.  [212]herefore, he has
  24. 5050 [153]" agreed to release you if you can
  25. 5055 print" solve his games.
  26. 5060 [141]9100
  27. 5065 [141]9000
  28. 5070 [153]"open    (NULL)he lenhief will lay out either
  29. 5075 print" arrows, beads, tomahawks or peace
  30. 5080 [153]" pipes in alternating colors.  (NULL)our
  31. 5085 print" job is to rearrange them so that all
  32. 5090 [153]" the blue objects are on the left side
  33. 5095 print" followed immediately by the red
  34. 5100 [153]" objects.  ascor example, the correct
  35. 5105 print" solution to the first puzzle is"
  36. 5110 print"          [154]@@@@[150]@@@@"
  37. 5115 print"          [154]aaaa[150]aaaa"
  38. 5120 print"          [154]bbbb[150]bbbb"
  39. 5122 printtab(26)"[155][192] [192]"
  40. 5125 gosub9100:gosub9000
  41. 5130 print"[159]    [217]ou move the objects in pairs.
  42. 5135 [153]" right$ndicate the left item of the pair
  43. 5140 print" that you wish to move to the open
  44. 5145 [153]" space by moving the arrow with the
  45. 5150 print" cursor keys.  [208]ress [210][197][212][213][210][206] to imple-
  46. 5155 [153]" ment the move.
  47. 5160 print"    [212]he first puzzle can be solved
  48. 5165 [153]" in 4 moves, the second in 5 moves,
  49. 5170 print" the third in 6 moves and the last in
  50. 5175 [153]" 7 moves."
  51. 5180 [141]9100:[141]9000
  52. 5190 [153]"open    (NULL)rogrammer's note:  right$ would like
  53. 5195 print" to take this opportunity to thank
  54. 5200 [153]" (NULL)aurice mid$ones who was kind enough
  55. 5205 print" to send me this puzzle to develop for
  56. 5210 [153]" (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL).
  57. 5215 print"    [212]he background music is [195]hant
  58. 5220 [153]" atnrabe (composer unknown)."
  59. 5225 [141]9100:[142]
  60. 9000 [153]"loadcont         lenhief (NULL)omahawk's chr$ames"
  61. 9005 [153]"def tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  62. 9010 [142]
  63. 9100 [151]214,22:[153]
  64. 9105 [153][163]14)"clr(NULL)(NULL)val(NULL)(NULL) (NULL)val(NULL)(NULL)(NULL)(NULL)"
  65. 9107 [129]t[178]1[164]100:[130]
  66. 9110 [161]k$:[139]k$[178][199](13)[167][142]
  67. 9115 [153][163]14)"on(NULL)(NULL)val(NULL)(NULL) (NULL)val(NULL)(NULL)(NULL)(NULL)"
  68. 9120 [129]t[178]1[164]100:[130]:[137]9100
  69. 10000 [159]15,8,15,"s0:chief boot":[160]15:[148]"0:chief boot",8:[128]
  70. 60000 [159]15,8,15,"r0:chief=chief":[132]15,er:[160]15
  71. 60010 [139] er[179][177]63 [167] [153]"":[128]
  72. 60020 a$[178]"chief":q$[178][199](34)
  73. 60030 [153]"stopload"q$a$q$",8"
  74. 60040 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  75. 61000 [151]214,15:[153]
  76. 61110 [153]"  listortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  77. 61120 [153]"  (NULL)                                  (NULL)"
  78. 61130 [153]"  (NULL)      lenleft$right$valasc (NULL)(NULL)(NULL)atnleft$atn(NULL)(NULL)'(NULL) chr$atn(NULL)val(NULL)      (NULL)"
  79. 61140 [153]"  (NULL)  peeky peekarbara left$. (NULL)chulak (len)  1989 (NULL)"
  80. 61150 [153]"  (NULL)     (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #65    (NULL)"
  81. 61160 [153]"  (NULL)   (NULL)ubscriptions 1-800-831-2694   (NULL)"
  82. 61170 [153]"  (NULL)        atnll (NULL)ights (NULL)eserved       (NULL)"
  83. 61180 [153]"  (NULL)                                  (NULL)"
  84. 61190 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  85. 61220 [153]"":[142]
  86.